Adephia Powerlink/AdephiaPowerlink-030102.iso/mac/launchVT.dxr/00003_Radio Group.ls

Text File | 2001-03-30 | 3.7 KB | 144 lines

property spriteNum, myDefault, ourID, ourGroupList, mySprite, myButtonMember, myName

on beginSprite me
  Initialize(me)
end

on mouseUp me
  Toggle(me)
end

on endSprite me
  SaveSetting(me)
end

on Initialize me
  mySprite = sprite(me.spriteNum)
  myButtonMember = mySprite.member
  memberType = myButtonMember.type
  case memberType of
    #button:
    otherwise:
      ErrorAlert(me, #invalidMember, memberType)
  end case
  if myButtonMember.buttonType <> #radioButton then
    myButtonMember.buttonType = #radioButton
    myButtonMember.hilite = 1
  else
    myButtonMember.hilite = 0
  end if
  myName = myButtonMember.text
  if myName = EMPTY then
    myName = myButtonMember.name
    if myName = EMPTY then
      myName = myButtonMember.member
    end if
  end if
  ourGroupList = []
  sendAllSprites(#RadioGroup_RollCall, ourID, ourGroupList)
  if ourGroupList.count() = 1 then
    myButtonMember.hilite = 1
  else
    case myDefault of
      #on:
        call(#RadioGroup_Toggle, ourGroupList, 0)
        myButtonMember.hilite = 1
      #auto:
        if myButtonMember.hilite then
          call(#RadioGroup_Toggle, ourGroupList, 0)
          myButtonMember.hilite = 1
        end if
    end case
  end if
end

on Toggle me
  global gButton
  if myButtonMember.hilite then
    call(#RadioGroup_Toggle, ourGroupList, 0, me)
    gButton = EMPTY
    gButton = myButtonMember.name
    put gButton
  else
    myButtonMember.hilite = 1
  end if
end

on SaveSetting me
  if myDefault = #auto then
    if myButtonMember.hilite then
      myButtonMember.buttonType = #checkBox
    end if
  end if
end

on RadioGroup_RollCall me, groupID, groupList
  if groupID = ourID then
    ourGroupList = groupList
    ourGroupList.append(me)
  end if
end

on RadioGroup_Toggle me, whichState, callingBehavior
  if callingBehavior = me then
    exit
  end if
  if myButtonMember.hilite = whichState then
    exit
  end if
  myButtonMember.hilite = whichState
end

on RadioGroup_SelectedButton me, propListOrString
  if not myButtonMember.hilite then
    exit
  end if
  if stringp(propListOrString) then
    if propListOrString <> ourID then
      exit
    end if
  end if
  groupNumber = ourGroupList.getPos(me)
  Data = [:]
  Data.addProp(#name, myName)
  Data.addProp(#number, groupNumber)
  Data.addProp(#sprite, spriteNum)
  if ilk(propListOrString) <> #propList then
    return Data
  else
    propListOrString.addProp(ourID, Data)
    return propListOrString
  end if
end

on ErrorAlert me, theError, Data
  behaviorName = string(me)
  delete word 1 of behaviorName
  delete char -30001 of behaviorName
  delete char -30001 of behaviorName
  case ilk(Data) of
    #symbol:
      Data = "#" & Data
  end case
  case theError of
    #getPDLError:
      beep()
      return [#getPDLError: [#comment: "ERROR:  Click 'Cancel'.   This behavior" & RETURN & "only works with Button Members", #format: #string, #range: [EMPTY], #default: EMPTY]]
    #invalidMember:
      alert("BEHAVIOR ERROR: Frame " & the frame & ", Sprite " & me.spriteNum & RETURN & RETURN & "Behavior " & behaviorName & " only functions with Button Members." & RETURN & RETURN & "Current member type = " & Data)
      halt()
  end case
end

on getPropertyDescriptionList me
  if not (the currentSpriteNum) then
    exit
  end if
  theMember = sprite(the currentSpriteNum).member
  memberType = theMember.type
  if theMember.type <> #button then
    return ErrorAlert(me, #getPDLError)
  end if
  return [#ourID: [#comment: "ID string for the radio button group:", #format: #string, #default: "RadioGroup " & the currentSpriteNum], #myDefault: [#comment: "Default status of button:" & RETURN & "(may be overriden: see notes).", #format: #symbol, #range: [#off, #on, #auto], #default: #off]]
end